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Above: Patterns generateu by XYLEM — see page 5. 
HK HH HEE HHI HIE EEE IKE EEK IKKE KES HDI MIKE TEE 


SPRITES — objects moving over a background 


Reader N.V. French (Spalding, Lincs.) asked if it was 
possible to write a sprite routine in Beta Basic. He reported 
that he had almost managed to stop the background being rubbed 
out, using methods similar to Newsletter no. 9's "Putting Shapes 
on a Background", but was troubled by flashing. (Nasty, that!) 
Below is my attempt at a solution; it is a flash-free but fairly 
Slow routine that moves an object over a background. I used a 
face floating randomly’ over part of the listing as an example — 
see the illustration. Read the issue 9 item again before 
attempting to understand the listing below, as I don’t want to 
repeat my earlier explanation. 


The disadvantage of the issue 9 method of placing an object 
on a background is that a "hole" has to be forced in the 
background to receive the object; momentarily, there is no 
object on the screen, and this creates flashing when you try to 
achieve movement. The method used by machine code games is to 
combine object and background data in registers, or a storage 
area, rather than on the screen. The combined data is then moved 
onto the screen without flashing. We can use the same method, 
although rather more slowly. 


First, we need a method of keeping unaltered background in 
storage for later replacement when our sprite has moved on. This 
is more difficult than might at first appear, ‘because if we 
simply use GET to store the screen image for the next intended 
position, we will store also the part of the sprite which 
currently overlaps the new position. I have implemented a sort 
of "conveyor belt" of background information to get round this; 
it starts with a copy of the background under the newly-placed 
sprite, and with every. move a new record of a “clean” background 
is created from screen information, overlaid with part of the 
old record to wipe out the overlapping sprite. (Some games store 
an entire background screen - but this is memory-hungry.) 
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Various combining operations require part of the screen (at 
bx,by) as a "scratch pad". The listing below allows you to see 
this area, plus the contents of the “conveyor belt"; to avoid 
this, remove the REM from line 195 so that the work area uses 
invisible ink, and delete line 230. 


16 LET x=11,y=163,r=9 
3S@ CIRCLE x,y,r 
48 FILL 11,167 
399 GET a#;@,175,5,3 
6@ INVERSE 1 
7M CIRCLE *sy er 
88 CIRCLE 8,1446,1 
96 CIRCLE 13,166,1 
106 PLOT 1@,y 
PLOT 12,y 
116 PLOT 7,159 
DRAW 8,0,1 
128 GET 620,175 ,3,5 
1230 RANDOMIZE S@ 
INVERSE @ 
CLS 
148 LIST 1890 
150 LET bx=228,by=170 
16@ LET s=i,t=1 
170 LET x=90,y=155 
160 GET £4, %s¥eoxo 
198 ON ERROR SOG 
195 REM INK 7 
2040 PLOT bux, ,by,t# 
218 DO 
220 GET t#,bx,by,3,3 
230 PLOT @,175;t3 
246 PLOT OVER 23bx ,by;at 
256 PLOT OVER 1l3bx,by;bs 
256 GET c#3bx,by,3,35 
278 PLOT INK Gps ,45c% 
288 GET cf, “te, ytt , 555 
296 PLOT bx ,by,cd 
588 PLOT bx-s,by-t,tt 
31@ LET »x=x+s5,y=ytt 
3520 IF RNDM(1Q)=1 THEN LET s=RNDM(4)—-2,t=RNDM(4)-2 
358 LOOP 


52@ INK @ 
GO TO 130 


Notes: The DO-loop at line 210 is entered for tthe first time 
with "clean" background in the working area; this is stored in 
tS using GET and held until it can be combined with screen back-— 
ground from the next position (in c$) at line 300. This gives a 
new "clean" background for the next passage through the loop. 
Line 320 sets up horizontal and vertical distances to move in 
Variables S and T; replace it with keyboard control if you like. 
Line 15@ use. RANDOMIZE S@ because I found that this particular 
pseudo-random sequence will keep the sprite on-screen for some 
time; the ON ERROR at line 19@ restarts the sequence when the 
sprite wanders too far. 
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XYLEM —- a chaotic pattern generator 


This contribution from Ettrick Thomson is based on a formula 
published (not for the first time) in Personal Computer World’s 
Nov. 1987 issue. It has been used as a basis for pattern 
generation programs before. Ettrick’s Beta Basic version has 
been more than doubled in speed by the use of a version of his 
machine code square root routine (see NL 4, #p.13) which, 
incidentally, I am glad to be allowed to incorporate into SAM’s 
ROM. Even so, the calculations required for each point mean a 
pattern takes 1@-20 minutes to build up —- or even longer for the 
higher-resolution (see NL 1@) version I used for the front 
cover. You might want to take a coffee break! 


16 GN ERROR 

IF error=i11 AND Llino=11@ THEN RETURN 

ELSE POP 

CONT INUE 
20 proloque 
SQ INPUT "“xos:"sxos‘"xrgs"sxurg’"“yos:"3;yos'"yrg:"syrg 
4@ INPUT "pi"sp’'"qe"sq'o"rs"sr 
36 PRINT p’q’‘r 
6@ RORDER 4 
7@ CLOCK "@" 
CLOCK 1 

80 LET x=8,y=@ 
90 FOR i=1 TO 1500@ 
108 LET z=y-SGN x*(p*x-q AND USR sqa) ,y=r-™“,x=z 
110 PLOT y+x,y—» 
120 NEXT i 
13@ CLOCK @ 
140 CLEAR -28 


200 DEF PROC prologue 
210 CLEAR 28 


22 LET s=DPEEK (23730) +2 
238 DO UNTIL PEEK (s-1)=0 
240 LET s=s+3+DPEEK (s) 


2508 LOOP 
268 FOR a=s TO st27 
270 READ b 
POKE a,b 
NEXT a 
28a LET sqa=5s 
298 DATA 239,51,42,192,56,6,2,126,167,200,198,128,31,119, 
33,594,127 ,239,49,224,1,5,15,56,55,16,246,2081 


3086 END PROC 


Here are some parameters to try: 


Pattern xos xrg yos yrgq p ra] r 

1 63 3a Sl 102 17 ti bs 

2 29 2/7 970 186 S31 13 2 

es 64 142 u7 «6114 Si ou 7 

4 198 256 88 176 5 11 17 
Ettrick believes that the development of these patterns 
depends partly on the ‘random noise’ of rounding-off errors - 
the result varies noticeably according to the numerical 


Precision of the language the pattern generator is written in. 
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SAM —- THE NEW MICRO FROM MGT 


Quite a few readers have noticed stories in the computer 
press revealing that I am writing the Basic for the new SAM 
micro, and asked for details. In fact, a number of readers 
suggested my name to MGT in the first place -—- thanks for the 
vote of confidence! I cannot reveal some things, partly because 
they are confidential, and partly because production machines 
aren‘t ready yet, and some details are not fixed. However, that 
still gives me plenty of scope. 


The machine has been called a "Spectrum clone" which is a 
Slur on a machine which completely outclasses the Spectrum. It 
is true that one screen mode is like the Spectrum’s, and that 
the machine is flexible enough to run most 48K games. (You would 
be able to run even more software if you loaded a tape copy of 
the Spectrum’s ROM into SAM’s paged RAM.) It might be true to 
say that SAM is to the Spectrum what the Spectrum was to the 
ZX81. Certainly my idea of what a Basic should be has been 
influenced by ZX Basic - I happen to like syntax check on entry, 
string "slicers", automatic listings, etc. Clive Sinclair should 
have developed a machine like this, instead of the 128K Plus. 
Towards the end, he didn’t seem to employ any imaginative 
engineers, though, and it has been left to a small, active 
outfit like MGT to fill the gap. 


SAM has a Z8@0B "brain" chip, which runs 70% faster than the 
Z8Q0A in the Spectrum. (If I write a particular Basic command no 
better than the Spectrum ROM version, I still get a 70% speed 
increase.) You get 256K or S1i2k of RAM, and further expansion is 
possible via the edge connector. The RAM is very cleverly paged 
to make life easy for machine-code types like me; Basic users 
will simply notice the nice features it allows me to provide, 
like BIG programs and arrays (1000's of kilobytes), instantly 
switchable screens, fast operation, etc. 


There are 4 screen modes. One major improvement in all modes 
is that the 16 colours we are used to on the Spectrum (8 bright, 
8 non-bright) actually select an entry in a special palette 
memory; the contents of that memory then determine the colour 
you see on the screen. The 16 palette memories can be programmed 
with any of 64 different colours, mixed from 4 intensity levels 
for blue, red and green (4*4*4=64). With appropriate values, a 
game or screen picture .will look the same as it did on the 
Spectrum, but often you would want to completely alter the 
colours. Even better, you can change the palette memory contents 
part-way down a screen, at any position, multiple times! This 
allows all 64 colours to be used at once, with some restrictions 
on location. Even the border colour can change part-way down a 
screen. Colours can also be made to flash —- e.g COLOUR 1,30,45 
would make colour 1 (normally blue on the Spectrum) flash 
between colour values 3@ and 45. (I am not sure what actual 
names we will use for the colours yet —- "red with a touch of 
blue and a dash of green?".) This can give pixel-level FLASH. 


MODE 1: Just like the Spectrum’s screen, using 4K for "pattern" 
data and @.75K fer attributes. Attribute clashing as usual! 


MODE 2: This uses 6K for "pattern" data and 6K for attributes. 
Resolution is the Spectrum’s 256*192 pixels, but any S8*1 pixel 
row in a character square can have its own Spectrum-style 
attributes. é 


| 
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MODE 3: Uses 24K. There is no separate block of attributes. 
Instead, each pixel has its Own, aS part of the main screen 
memory. Mode 3 has a resolution of 5Si2*192 Pixels, and allows 4 
colours to be used at once from the Palette of 14. (Which can be 
altered part-way down the screen.) You can have up to 85 6-pixel 
Characters across the screen. I suppose this mode will be mainly 
used for word-processing and other detailed work. The use of any 
4 colours is pretty good, and you can simulate more with 
stippled FILLs. However, my favourite is the next mode — mode 4! 


MODE 4: Uses 24K. Resolution is 256*192, with 146 possible 
colours per pixel. It is very nice to get away from attribute 
problems! I recently ran a Mandelbrot set program ta give 
complex, detailed colour patterns that would be quite impossible 
on the Spectrum. 


Modes 2-4 all have nice easy memory arrangements'7 for 
machine-code types — e.g. mode 4 uses 192 contiguous rows of 128 
bytes, each haif—-byte coding for a pixel. To get a screen 
address from ~»x and y coordinates takes 3 machine code 
instructions, vs. 2@ or more on the Spectrum. This’ partly 
explains why e.g. DRAW is about 5 times faster on SAM than on 
the Spectrum. (Other reasons are the faster processor, and the 
fact that I thought very hard when writing the graphics 
commands!) Using half-bytes for each Pixel is a good idea 
because it makes left and right ROLL and SCROLL by one pixel 
easily possible with the Z8@'s half-byte rotate instructions. 


SAM’s sound chip is better than the one provided on the 128K 
Spectrum, but I am not doing the programming on that part of the 
Project, so I can’t comment further on the sound facilities. 


The keyboard will be “proper”, with a set of function keys, 
and completely "soft" - that is, the keys will be programmable 
so that they can produce any character you want. This, combined 
with an extensive international character set, should make the 
machine particularly attractive in overseas markets. 


SAM will be compatible with most Spectrum software, so it 
will start with a big software base, unlike most new machines. 
SAM Basic will do everything that Spectrum Basic can do, so 
Basic programs that don’t try to be too clever with PEEKs, POKEs 
and USRs should run. A small and Painless translation step is 
all that is required. As I write, I am not sure how many of Beta 
Basic’s features will be packed into SAM’s 32K ROM — all the 
major commands should be there, though, plus others to support 
SAM’s hardware. What about compatibility with existing BB 
programs? Well, I cannot be completely tied to the current way 
of doing things, which are in some ways a "kludge" forced by the 
Spectrum’s ROM. For example, using line zero to provide extra 
functions, and using UDGs as new keywords, will have to be 
ditched. But there are so many points of compatibility that you 
will normally be able to LOAD a BB Program and then use some 
kind of SAM Basic translator program (full of ALTERs, I expect) 
to make the program runnable. The machine should be available 
from April 1989; the price will be about #140.a0 for the basic 
256k version. A compatible disc system will be available. MGT 
are allowing interested customers to reserve a place in the 
queue for machines at no Charge - write to them if you are 
interested in doing this. Their address is: 


MGT, LAKESIDE, PHOENIX WAY, 
SWANSEA ENTERPRISE PARK, SWANSEA, SA7Z 9EH 
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IMPROVED ‘ROSE’ —- faster patterns 

This item causes me some embarassment; the item called "THE 
ROSE” in issue 11, p.2 works fine — but I had never got around 
to ‘polishing’ it before publication. Two readers, Gilbert 


Jackson and Ettrick Thomson, have contributed improvements which 
are major enough to justify another viewing. The use of BB‘s 
SINE and COSE, joining LET statements, and removing a completely 
redundant line 166 from the original give a large speed 
improvement. The variables N and D are now supplied by RNDM, in 
the range 1-179. (Values in the range 181-359 give essentially 
the same patterns.) RNDM showed up whole ranges of patterns that 
I had never seen before when choosing N and D myself. Line 40 
incorporates an improved method of detecting repeating patterns 
in advance, to limit time-wasting overwriting. 


10 LET k=P1/180,x05=128,yos=88 
28 DO ‘ 
3a LET n=RNDM(178) +1,d=RNDM(179) +1 
49 IF MOD(n,2) AND MOD(d,8) THEN 
LET b=1988 
ELSE LET b= 
5a PRINT "N="sn‘°"D="sd 
40 PLOT 0,8 
728 LET a= 


88 DO 
90 LET a=MOD(atd,36@) ,t=k*a,r=87*S INE (k*MOD (n*a, 34D) ) 
120 DRAW TO r*SINE(t) sr *COSE (t) 


110 LOGP UNTIL a=b 
126 PAUSE @ 

130 CLS 

140 LOOP 


The above lines are self-contained and I urge you to try 
them out. I have also used this program in combination with the 
string-drawing procedures from issue 12, which'I hope you have 
handy! It is possible to store about 4@ different patterns ina 
string array, and then reproduce them at high speed —- this makes 
_@ very impressive display. To do this, add or change the 
following lines in "The Rose" listing above: 


3S pokecd 

RANDOMIZE 99 

DIM p#(1) 
10 LET k=P1/19@ 
25 LET a#="" 
50 nplot 128,988 
1808 ndrawto r*SINE(t)+128,r*COSE(t) +988 
120 LET at=at+CHR$ 254+CHRS 254 

JOIN at TO p# 

140 LOOP UNTIL MEM() <=380@ 


Line S pokes the DRAW-a-string code into Place, selects a 
particular ‘random’ sequence (useful if you want to repeat 
something) and initialises an array which will have data for 
each pattern JOINed to it. The patterns are separated by CHRS 
254+CHRS 254 - this won’t occur in the pattern data, so we will 
be able to recognize these separators later using INSTRING. Once 
P+ is big enough to fill a lot of memory, we stop adding 
patterns to it. You can add a line to save the array at this 
point, e.q.: : 


150 SAVE 1;"patdat” DATA p#() 


Add the following lines to find the stored patterns and re-draw 
them at high speed: 


206 LET p=2,s=p 

210 DO 

220 CLS 

258 LET p=INSTRING(p,p$,CHRS 254+CHRS 254) 
240 LET at=p$(s TO p-1) 

258 sdraw at 

266 PAUSE 6 

2/70 LET p=p+2,s=p 

280 LOOF UNTIL p=LEN p$+1 


Finally, MERGE in procedures FOKECD, SDRAW, NPLOT and NDRAWTO 
(from issue 12). You can have a program that includes only lines 
206-288, POKECD and SDRAW, and a line to load the array p#¥() and 
call PGKCD, to give a very nice demo. 
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PROC CARTESIAN —- converting polar to X,Y coordinates 


Ettrick Thomson (Aldeburgh, Suffolk) commented that = my 
discussion of passing parameters by reference (NL 11,p.4) didn’t 
mention an advantage of REF; it allows you to handle a function 
that can’t use DEF FN since it can’t be specified by a since 
assignment statement. It also allows you to handle more than one 
function. Ettrick’s example procedure takes as its first two 
parameters the names of the variables to put the output values 


in, followed by a radial distance and a bearing. (I took the 
liberty of making a slight modification so that the bearing can 
be in degrees, not radians - If! still think this way, as I 


suspect most of us do.) Range and bearing coordinate systems are 
called "polar". You are probably familiar with at least some of 
their uses; e.g. “Torpedos bearing 150, 260 yards and closing, 
Captain!". Computers use the more familiar X,Y system — 
rectangular, is that the term? So we need to do a conversicn in 
order to plot a pixel. Note that the X and Y of line S@ can be 
altered to something else -—- we are just telling the procedure 
what variable to put the answer in! (Line 4@ would have to 
change tao, of course.) 


1@ LET xos=128,yos=88 
20 FOR a=0 TO SS? STEP 180 


38 cartesian x,y,74,a 
48 PLOT xyy 
3@ NEXT a 


19@ DEF PROC cartesian REF x, REF y,r,theta 
LET x=r*SINE(theta*PI/180) ,y=r *COSE (theta*PI/18@) 
END PROC 
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FACTORIALS revisited. 


Ettrick also came up with the recursive function method of 
Calculating factorials that I was trying to think of in NL 11, 
p- S. He had it published in Computer Bulletin in June 1985! 


DEF FN hin)=VALCC"1" AND n=@)+ ("nN*FN Hh(n-1)" AND n>@)) 
He says: “Explaining how FN h(n) is calculated is a nice problem 


in analysing ROM behaviour!". Very true —- ‘advanced topic’, Id 
call that! Note: the ‘FN’ must be a keyword. 
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NARROWER CHARACTER SET 


This contribution is from Neil Exley of Carnforth, Lancs. He 
writes: 

The program belaw redefines the Spectrum character set, to 
make the characters appear slightly smaller than usual. It is 
particularly useful with CSIZE 6,3, instead of using the normal 
size character set and OVER 1. The program takes about half a 
minute to camplete, so don’t worry if the screen goes blank for 
a while. Line 60 makes the new character set appear ona 40 
column screen, as what you would find on other computers. 


10 CLEAR 284 
CLEAR 784 
LET p=GDFEEM (23750) +2 
DO UNTIL FEE (p-1)=0 
LET p=pt+i+DFEEK (p) 
LCOP 
FORE p, MEMORYS() (15615 TO 143585) 
DFOKE 23506, p-256 
20 FGR a=i TO 14 
READ x,y 
FOR b=p+x to pty 
LET bS=BINS(FEEK b),a$=b$( TO 3) +b$(S TO )+"0" 
30a IF 6&$(4)="1" THEN LET a#(4)="1" 
40 POKE b,VAL (CHRS 194+a3$) 
NEXT b 
NEXT a 
30 DATA 16,31,40, 47,128, 159, 168, 207, 232, 239, 248, 327,336,41 
5,424, 455, 454, 479,512,559, 568, 583, 624, 671, 680,687, 712, 7 
19,728,751,750, 767 
60 WINDOW 1,0,175,241,176 
WINDGW 1 
CSIZE 46,8 
CLS 


LIsy@T . 
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STRING AND NUMBER INPUT PROCEDURES 
John Watkins (London) writes: 


The contributions are an improvement over the = string/number 
PROCedures in issue 3/4. Mine seem to operate much quicker (in 
the case of the string input) and in the case of the number 
input offers better error checking, especially with respect to 
exponents and negative numbers. 


60@@ DEF PROC String REF b¥#,length,at 
6018 DEFAULT a$="" 


LET b$=at 
6626 PRINT bs 
6830 DO 
IF LEN b¥<length THEN PRINT "_"3;CHRS 8; 
6242 GET a¥ 
EXIT IF at=CHRE 13 
6658 IF CODE a$>31 AND CODE a$<1i28 AND LEN b$<length THEN 
PRINT as; 
LET b$=b$+at : 
5860 IF CODE at=12 AND LEN b$>@ THEN 
LET bt=b4l( TO LEN b#-1) 
PRINT CHRS 85" “;CHRS 8;CHRS 8; 
68708 LOOP 
6830 IF LEN bS<length THEN PRINT " “3; 


6890 END PROC 
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In PROC number most is’ self-explanatory, finnum. being the 
exit number, length the number of characters long ‘b$’, a 
temporary string is. Min and Max are obvious, and the other 
three are logical variables to denote the range of the number. 
Unfortunately any error trapping relating to line 6258 produced 
some odd results and infinite (Basic) loops. 


10 PRINT AT @,@; 
Number num,10,0,1e6,1,0,1,"" 
6418@ DEF PROC Number REF finnum,length,min,max ,dec,neg,expo,bs 
61108 LOCAL at 
6120 DEFAULT expo=@,dec=0,bs="" ,neg=a 
6130 PRINT bs 


6146 DO 
6158 IF LEN b#<length THEN PRINT "“_"3;CHR 8; 
6166 GET as 
EXIT IF as$=CHR* 13 
61708 IF CODE a$>47 AND CODE a#<S8 AND LEN b#<length THEN 
PRINT as 
LET b$=b$+as 
6188 IF a%=CHR* 12 AND LEN b$>@ THEN 
PRINT CHR$ 8;”" “;CHRS 8;CHRE 9; 
LET b$=b#( TO LEN bs-1) 
5198 IF neg AND as="—-" AND LEN b#=@ THEN LET bt=as 
PRINT a; 
6208 IF dec AND a$="." AND INSTRING(1,b%,".")=@ THEN 
LET b$=b$+at 
PRINT at; 
6218 IF LEN bS=@ THEN GO TO 6246 
6228 IF expo AND INSTRING(1,b#,"E")=@ AND (as="E" OR at=" 
e") THEN 
LET b#=b$+"E” 
PRINT "E"; 
6230 IF expo AND at="—-" AND bBS(LEN b$)="E" THEN 
LET b$=b$t+at 
PRINT at; 


5248 LOOP 
62508 LET finnum=VAL b$ 
6268 IF finnum<min OR finnum>max THEN BEEP .1,.1 
GO TO 46149 
276 IF LEN b%<length THEN PRINT " "5 
628@ END PROC 
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BETA BASIC AND THE PLUS 2A 


The PLUS 2A? What’s that?! Well, it seems Amstrad have run 
out of Plus 2 circuit boards —- but they had planned for this 
when they designed the Plus 3 circuit board. This board can run 
with a built-in tape recorder instead of a disc drive, so they 
have stuck Plus 3 boards into Plus 2 cases to produce the Flus 
2A. Unfortunately, the new board uses 64K of ROM that .is quite 
different from the 32K ROMs in the Plus 128K or Plus 2, and Beta 
Basic 4.0 will not run. I will not have the time to solve this, 
unfortunately. If I‘d accidentally bought a Pius 2A, I would 
feel rather annoyed, because there is no warning on the machine 
that it is NOT a Plus 2, and some peripherals and programs will 
not work. The new machines can be spotted by their different 
case colour —- black, rather than grey. 


A recent BB 4.0 buyer and subscriber (Stan Flynn, Stafford) 
who turned out to have a Plus 2A found a solution to the 
incompatibility of BB 4.9. He was helped out by a “*friendly 
hardware person, and as far as I can guess from the description, 
2 ROM chips were pulled from =e Plus an board and replaces ay a 
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BB 4.0. I don’t know if the chips were socketed, rather than 
soldered in place, though I’d guess so; I don’t know which 
vacated socket the Plus 2 ROM was put into, either. But there 
are probably suppliers of Plus 2 or Plus 128K ROMs around, so 
this is one option to consider if you want to run BB 4.0. and 
have problems getting a Plus 2 or Plus 128K. Note: It probably 
wouldn’t matter if you tried the chip in the wrong socket - the 
machine would just fail to work - but you MUST line up the notch 
or dot depression at the end of the chip the same way as the 
Original chip was lined up! (1 once made this mistake with an 
EPROM and it lit up like a little light-bulb inside its glass 
window... amazingly, it still worked after this') : 
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PROC EXAM —- examine memory 


This contribution is from Terry Holland of Whitley Bay, Tyne 
& Wear. He says: 


“EXAM “peeks” into a specified number of addresses and displays 
the contents thereof. Parameter a is the starting address 
(defaulted at 23755), and c the required number of addresses 
(defaulted at 40@@). I hasten to add that this is not all my = own 
work. I adapted this.from a routine contributed by a reader to 
one of the popular Spectrum magazines." 


1@ DEF PROC EXAM a,c 

20 CLS 

208 DEFAULT a=23755,c=480 
46 LET n=1 


5 DEF FN b(i)=INT (i/2)=i/2 

6@ FOR i=@ TO c 

72 POKE 23492, 

8a LET b=FN b (nti) 

98 BRIGHT b 

120 PRINT n+i3;TAB 4;ati;TAB 10;PEEK (a+i);TAB 15;CHRS 


(PEEK (ati)) AND PEEK (ati) >31 
116 NEXT i 
12 BRIGHT @ 
138 FOKE 23692,2 
140 END FPROC 


Editor’s notes: The function Bi) is used to find if the address 
is odd or even to give a display with bands of BRIGHT printing. 
Care is taken at the end of line 1@@ to avoid printing control 
codes (values less than 32). I thought that the suppression of 
the ‘Scroll?’ prompt using POKE 23492 was a disadvantage here —- 
but see what you think. Looking at a Basic program this way will 
show you lots of fairly confusing stuff, like invisible forms of 
numbers (preceded by CHR* 14) and two-byte line numbers (usually 
preceded by the CHR# 13 that ends the previous line) followed by 
line length data. You will be looking near the start of the 
program using Terry’s default values, which is BB’s line @. This 
1s fairly boring - try about.24404 to see the first line after. 
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THE MEMORY REQUIREMENT OF ARRAYS 


A recent letter leads me to think that not everyone knows how 
to calculate the memory requirements of an array. String arrays 
are fairly simple; e.g. DIM a¥#(3@,10) would use 20*10=300 bytes, 
Plus a few for information used by the system. However, creation 
of a similar array of numbers e.g. DIM a(3@,18) would use over 
1500 bytes, because each number takes 5 memory locations. You 
can see why it might be worth considering using CHR, or CHARS, 
to code numbers 4s 1 or 2 character strings! 
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MUSICAL SIMON — guess a note 


Terry Holland (Whitley Bay, Tyne & Wear) says: 


"SIMON is a sort of game. The computer sounds a note (a 48K 
beep) and the user must identify and sound the same note as 
quickly as possible. Beta Basic’s ‘stopwatch’ facility is used 
here. The user’s time is indicated including the time to beat.” 


10 DEF PROC SIMON 
POKE 236089 ,8 
LET N#="680: 66:99" 


LET Y=99 

20 po 
CLOCK @ 
CLS . 

30 LET NUMBER=RNDM(7) +1 

40 PRINT “IDENTIFY THE NOTE ” 
PRINT "--~--~——--—--——--- " 
PRINT "THAT I WILL SHORTLY" 

52 PRINT “----e---s4 " 
PRINT "SOUND BY PRESSING” 
PRINT —-----——~--—--+----— " 
PRINT "KEYS 1 TO 8" 

68 PRINT ®--—--———-—~ " 

70 PRINT 

8a LET Z$=N#(5)+N$(7 TO 8) 


LET X=VAL ZS 
IF X<¥ THEN LET Y=X 


92 PRINT "THE TIME TO BEAT IS "3;Y 
PRINT 
108 PAUSE 100 
110 ON NUMBER 
BEEP .3,@ 
BEEP .3,2 
BEEP .3,4 
BEEP .3,5 
BEEP .3,7 
REEP .3,9 


HEEP .3,11 
BEEP .3,12 
120 PRINT "GUESS NOW " 
POKE 546864,5 
POKE 56870,58 


CLOCK 1 
clock "a" 
150 DO 
GET GUESS 
ON GUESS 
' BEEP .3,@ 
BEEP .3,2 
BEEP .3,4 
BEEP .3,5 
REEP .3,7 
BEEP .3,9 


BEEP .3,11 
REEP .3,12 
142 IF GUESS=NUMBER THEN LET NS=TIME$() 
CLOCK @ 
PRINT “WELL DONE YOU HAVE GUESSED” 
PRINT "CORRECTLY IN A TIME OF ";N$(5)3;N%(7 TO @) 
ELSE PRINT “WRONG TRY AGAIN" 


1508 LOOP UNTIL GUESS=NUMBER 
168 INPUT "DO YOU WISH ANOTHER TRY — ENTER ANY KEY FOR Y 
ES OR N FOR NO ";A 
170 LOOP UNTIL Af="N" OR AS="n" 
180 POKE 23409,32 
POKE 56866,58 
POKE 54870,54 
CLOCK @ 
198 END PROC 


Editors note: The POKEs to BB’s CLOCK to make it act as a 
“stopwatch’ are given on page 198 of the BB 3.0 manual. Address 
76846 can be poked with values as small as 1 for a faster clock. 
(SIMON doesn’t worry about what units it is timing in, anyway.) 


HEE KHEE EH EK HEHEHE EK HE KH HEE IKKE HE KEKE HHI KH HHH HEHEHE IK 
GENERATING DEF FNs 


This contribution is from the prolific W. Ettrick Thomson 
(Aldeburgh, Suffolk). The procedure uses KEYIN to generate a 
program line containing a DEF FN. This brings. up a general 
point; if you make a syntax error using KEYIN, you are not given 
the chance.to edit the line but are presented with a ‘Nonsense 
in Basic’ report. The procedure shows a way out, using ON ERROR. 
The methods used here are applicable to writing something like a 
full-screen editor using SCREEN# and KEYIN. (I know —- I‘ve got a 
sort-of-working example!) 


Why do you need a procedure to generate DEF FNs? After all, 
you can just type them in. Well, it might be convenient to allow 


a user to create a function — for example, in a graph-plotting 
program — without telling him he has to break into the program 
and type it in somewhere! The procedure allows the DEF FN 
creation from within the program. One warning - the version 


shown here works fine if you just type ‘function’, but if it is 
included in a program, the line number that the DEF FN is placed 
at should higher than 2@. The insertion of a new line near the 
top of the listing alters return addresses used by procedures, 
so the DEF FN must be KEYed in after all procedures that are 
being used at the time (not including FROC function). 


246 DEF PROC function 
2108 ON ERROR 
IF error=12 THEN 
PRINT ‘“"Syntax error in"‘’" DEF FN .f (x)="3qg4" 
"Please re-enter" 
LET =i 
RETURN 
ELSE POP 
CONTINUE 
228 PRINT "--Solve the equation y=f (x)=@-—-"" 
PRINT "“f(x) must be expressible" 
PRINT "as a BASIC FN." 
PRINT "Please complete the DEF FN." 
238 LET f= 
INPUT "DEF FN f(x)="5 LINE gt 
248 KEYIN "20 def fn g tx)="+g% 
ao IF f THEN GO TO 238 
260 ON ERROR @ 
278 END PROC 
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READERS’ LETTERS AND SUCH... 


Welcome to issue 13 of the Newsletter! I, got a LOT of very 
gratifying comments from readers as they renewed their 
subscriptions - thank you all very much. These letters have 
convinced me that basically the Newsletter content is about 
right for those who renewed - unfortunately, quite a few 
subscribers have dropped out, but it is too late to try to 
please them. (A few wrote, saying Bye-bye, I‘ve bought an 
ST/Amiga/PC am emigrating/etc. Quite a few pleas to implement BB 
on other machines have arrived, too.) Actual critical comments 
were very hard to find, except on one point which I will come to 
later. One reader suggested that my recent illustrations were a 
waste of space, and one said stuff on BB 4.8 was wasted on him 
because he only had BHR 3.6. One person wanted more _ tong 
contributions, in sections, and another said he wanted more 
machine code = subroutines. However , the main criticism is 
exemplified by the following letter: 


DEAR ANDY! 


I think the BB Newsletter is very good, but is it possible and 
Okay with you if the non-hesitant pay for one year the next 
time? The problem is that a check for 3.5@ pounds costs almost 
3.58 pounds to purchase. Even if I have ancestors that are not 
Scottish like yours (see BH no. 3 last page) they come fram 
Smaland a province in southern Sweden and they. are famous for 
the same thing as the Scotsmen namely to be very economical. 


Hans Muhrbeck, Taby, Sweden 


I got LOTS of letters in this vein - sorry for the cast and 
inconvenience’ Some subscribers side-stepped the problem hy 
simply sending more money, Tor 6, 9 or 12 issues, which I hadn't 
expected. Hhy the change to 3 issues? Hell, I hardly dare write 
this... I had seriously considered abandoning the Newsletter. 
Contributions had been a Little thin during the previous Issues, 
and I had had te write quite a fem things myself. I enjoy this, 
but rt takes Iots of time. I made the mistake of estimating the 
time taken per WNemsletter, vs. the financial returns. This 
turned out to be pretty Iom —- better than being unemployed, but 
not as Iucrative as, say, being a cleaner. Actually, the best 
returns Troe editing the Newsletter are not fTinancial, but the 
satisfaction of communicating mith a lot of Interesting and 
interested people, sa you eight think 1 am being a obit 
money—grabbing and the Newsletter should gust be run as a hobby. 
The problem here Is that since I arm self-employed, the 
Newsletter competes fairly directly mirth nornal income— 
generating activities, which are fairly iIrsportant. (If I ga an 
heliday, or get sick, I don't get paid.) I got rwarried since the 
Jast issue, too, and this tends to prompt a certain amount of 
theught on financial matters. 


My thinking was: “Hhat if I am committed to another 6 issues, 
contributions dry up, and lats of subscribers drop out? I would 
have months of work for virtually ne return.” I half-decided to 
terminate the Newsletter, but in the end, i had been getting 
Lots of appreciative correspondence, and I found I just couldn't 
do ait. I compromised by reducing the number arf rssues I was 
committed to. (Readers whe sent money for TIets ef Issues have 
deen carefully noted sa they won't Ioese out mhenever publication 
ceases — which it will do eventually, of course. Nathing lasts 
Terever/) In the event, I gat a goad response to my appeal for 


contributions, and I may include some of them without typing 
them in myself, in order to save time. I hope you will excuse 
any reduction iain Ileqibility. (Most of this issue mas put 
tegether before many of these contributions mere received, but 
they will appear in later issues.) On the other hand my printing 
costs have just jumped by almost half, so I mas pleased that I'd 
increased the cost of each Issue a bits 


Dear Dr. Wright, 


I have found a problem with SPLIT using BB 3.@+D, the example on 
page 635 of the (excellent) manual doesn’t give the expected 
results —- see attached printout. There is no problem unless the 
line being edited contains numbers to the left of the <>... I 
hope there is a simple solution. 


John Fellowes, Norwich 


The problem that you and fellowm-reader David Oliver pointed out 
only exists ain the Disciple/Plus PB versian of Beta Basic. I 
found that one af my madifications to cepe mith the Disciple's 
habit of etripping the invisthle forms of numbers from Beta: 
Basic statements caused the problem. Fortunately, a simple POKE 
corrects things, although the action of SPLIT is slightly 
altered from the description gqiven in the manual. After POKE 
$8539,89 (fer either BB 3.8*D or 4.8*D} SPLIT should work 
without the problems you mentioned, but when the first part of 
the split line has heen entered, your curser will be left at the 
Start of a line which has NO line number, rather than the sane 
number that the first part has. In some mays this may be better 
than the eriginal system, sea I hope you can live with it/ Users 
of non-Disciple versions of BB can nake this POKE,too. 


Dear Dr. Wright, 


If bbc2 CODE is 6144 bytes long then how when loaded to the RAM 
disc does it occupy only 1K of space? The only explanation I 
find is that the extra SK go into some space in RAM disc not 
available from Basic. 


Ricardo Cohn, Montevideo, Uruguay 


You've nearly got it. There is 88K of paged RAM available an a 
123K Spectrum. Only 74K of this is used for the RAN disc: the 
rest ais filled by the editor's mork area and a disorganised 
clutter of variables, routines and free memory. Five K from the. 
file “bbc?” CODE overlay this area, so that only 1K has to be 
taken from the RAH disc area. 


Dear Dr. Wright, 

I enclose five pounds... with the enormous extra 1.50 I hope to 
bribe you into letting loose those Opus routines that you have 
been talking about earlier. Should you have hints of magazines 


or user-clubs, I would be very grateful. 


Finn Hansen, Esbjerg, Denmark 


I am very sorry, but I can’t find the time to search through my 
Pile of discs and tapes to print any Opus Discovery programs I 
might have. The most vigorous user-group I know of is FORMAT, 
which started as a Disciple/Plus D magazine, It is moving to 
attract non-Disciplie readers in an effort to become the last 
general-readership Spectrum magazine not totally dedicated toa 
games. It is very professionally produced (much more so than the. 
BR Newsletter) by Bob Brenchley, and runs to about 32 pages 
every month. It carries reviews, news, SAM info, an adventure 
corner, articles on disc drives, Basic and machine code — I even 
contribute the odd item on Heta Basic! (Which will probably have 
appeared in some form in the BB Newsletter already.) It is well 
worth a look. Write or phone for information to: 


FORMAT, 34 Bourton Road, Gloucester GL4 OLE. Tel. @452-412572 


Dear Dr. Wright, 


I have had much entertainment from your rotating cube and 
superfast plot/draw programs (NL no. 12). A minor: question is 
"Why FOR n=1 TO @ at line SS@ page 47". I am intrigued by the 
last S bytes of line S5@ page 9 (LD HL 2758H, EXX, RET). They 
can be replaced by: EXX, POP HL, EXX, RET if the code is started 
with EXX, PUSH HL, EXX so the purpose appears to be to restore 
the HL’ pair after the use of EXX within the firogram (e.g in the 
LINE-DRAW routine in ROM). What puzzles me is the absence of an 
EXX before the LD HL, and, also, the fact: that one can be 
inserted there without ill effect. That one can Play ducks and 
drakes like that with the alternate registers. like that strikes 
me as very odd. 


G. Jackson, Cardiff 


The dummy FOR-NEXT line Is because at line 568 variable b is 
assigned the address af the array f$; when line v@a@ is reached, 
the creation of n by the “real” FOR statement could rmave the 
array’ So I made sure that n already existed, as a FOR variable, 
before the value of b is set. The alternate register set query 
came from several readers, so my machine code jis being taken to 
bits by quite a few people, obviously. (How gratifying’) I used 
the methad I did because it takes 4 bytes, which is less than 


any alternative I can think ar. Hany assembly—lanquage 
proqgrammers never use the alternative set of registers (called 
HL’, DE" and BC’} at all -— they are often. not particularly 


useful. However, they are used by DRAH, and this can cause a 
crash when DRAH Is used via USR. The ROH expects the HL register 
that is “switched out” to contain 2758H on return trom a USR 
(this is the address of an “exit floating point calculator” code 
which has to be executed after USR). There is no way to tell 
which set of registers is which, other than by guessing on the 
basis of their contents, so my method is as good as saving the 
“real” HL’ pair and restoring it later, because in a sense there 
isn't actually a “real” HL’ pair - just two sets of reqisters 
that work identically. As long as the contents are sensible, all 
is well. (I mill make sure SAH saves any registers that matter/} 


Dear Andy, 
In the last para. of p.1& of NL 10, you mention that ‘INPUT """ 
can be used to clear the lower screen and reset the ‘Scroll’ 


counter. ‘INPUT ;° does the same thing, but is one byte shorter. 


W. Ettrick Thomson, Aldeburgh, Suffolk 


Dear Dr. Wright, 


I wonder if you can offer any advice? I retained my 48K when I 
obtained my +2. The 48K is linked to a Microdrive and teletext 
adapter and the +2 to an Opus drive. And of course they both 
have an RS232 port. So they can pass information. Or that’s what 
I thought. I have had no. success yet. Unfortunately the +2 
manual whilst admirable in many respects is very vague on this 
point and when I wrote to Amstrad for advice they did reply but 
added nothing to clarify the techniques. Is it in fact possible 
or is the +2 port nor ‘real’ in the sense of being usable in 
this way? I would like to pass screens, code and programs but 
have only had failure to date. I wonder if you or any of your 
readers has any suggestions to make? 


Richard Lown, Wivenhoe, Essex 


Iouse my Plus 128K all the time te send data back and farth toa 
an Aastrad CPC (fitted with an external RS232 interface) and a 
PC. I often mant ta send all characters and control codes 
without alteration, se I usually start by POKE 23349,39: POKE 
2535¢,1 tea allem this. (See BB 4.@ manual, page 17 —- Crash’s 
Tech Niche gave a #3%.8@ prize te someone for this tip — the 
year AFTER BB 4.8 mas JIaunched/) You mould wmant to do this to 
send most kinds of data, except listings (as opposed to runnable 
programs), Set the bhaud rate fer the RS232 using FORMAT 
“p" (baud rate). Host computers seem to use 9608 by default. You 
can epen a stream ta the “p” channel, and PRINT to that stream, 
or just LPRINT the characters you mant. If the other computer 
isn’t ready to receive, the sending computer should matt; if it 
doesn’t, there is probably something mrong with the cable. To 
receive data, epen a stream to the “p” channel, and INPUT or 
INKEY$ from that stream. That’s fine with data or machine code 
Tiles — yeu can use PRINT and INPUT or INKEY$ fairly easily, but 
what about programs? Interface 1 allowed SAVE *®”’b” and LOAD: 
e”°B”, (I got out the manual to check, since my Interface 1 is 
not set up permanently.) I thought, “Pity they didn’t implement 
that on the 128K Spectrums” and just on the off—-chance I tried 
it. I got very excited mhen it morked/ Then I pulled my Opus of 
the back and it stopped working... Opus Discavery allows SAVE 
¥° Db” to send programs via the PARALLEL printer port/ Homever, it 
also tried to send and receive something via RS232 when I tried 
SAVE#”p” and LOADS” p”, so you might be in luck’ The CPC was 
getting something, but naturally caouldn’t make sense of it. Try 
yeur Interface 1 instead. Remember to make the POKEs at the 128K 
end of the link. 


Dear Dr. Wright, 
What is the news about BR on the Plus 3 and other computers? 
Bernard Wild, Colchester, Essex 


(Bernard's letter is reconstructed, since I cannot put my hand 
on the original’) I mill prebably never finish the Plus 3 
version of BB — I am toa busy writing the Basic for SAM —- serry/ 
I can recommend the Plus D dise Interface if you mant to add a 
disc drive — there IS a Beta Basic version for that. Or mart for 
SAH. I thought of mriting BB fer the CPC and PCH machines. I gat 
as far as getting Spectrum Basic to work on the CPC and selling 
some tapes, but didn't really market the product - too much mork 
and expense Tor the Iikely return. (Hewever, I do find this 
pro@ranm very useful fer playing with altered versitons of the 


Spectrum ROH, since the “ROM” is loaded inte editable RAMN.? 
HERE HEE HEHE FE HEE EEE IEEE EEE IEE EEE FEE IE EE IEEE IEE IIE IEE TE IE EEE FE IETF IE TEE TEI IEEE FETE IEE 


BR NEWSLETTER, 24 WYCHE AVENUE, KINGS HEATH, BIRMINGHAM B1i4 6LO 


